home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cug232 / file.st < prev    next >
Text File  |  1987-06-17  |  768b  |  44 lines
  1. Class File :SequenceableCollection
  2. [
  3.     modeCharacter
  4.         <FileSetMode self 0>
  5. |
  6.     modeInteger
  7.         <FileSetMode self 2>
  8. |
  9.     modeString
  10.         <FileSetMode self 1>
  11. |
  12.     at: aPosition
  13.         <FileSetPosition self aPosition>.
  14.         ^ self read
  15. |
  16.     at: aPosition put: anObject
  17.         <FileSetPosition self aPosition>.
  18.         ^ self write: anObject
  19. |
  20.     currentKey
  21.         ^ <FileFindPosition self>
  22. |
  23.     first
  24.         ^ self at: 0
  25. |
  26.     next
  27.         ^ self read
  28. |
  29.     open: aName
  30.         <FileOpen self aName 'r' >
  31. |
  32.     open: aName for: opType
  33.         <FileOpen self aName opType >
  34. |
  35.     read
  36.         ^ <FileRead self>
  37. |
  38.     size
  39.         ^ <FileSize self>
  40. |
  41.     write: anObject
  42.         ^ <FileWrite self anObject>
  43. ]
  44.